<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>55</cardCount>
<cardID>3803</cardID>
<listID>2211</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>264</height>
</cardSize>
<script>on tabkeyask "DEBUG :"do itend tabkeyon loq -- Locks the stackglobal protectset cursor to watchgo to first cardput y into protectmakemenuset userlevel to 2hide cd button "update"hide cd button "lock"end loqon unloq -- Unlocks the stackglobal protectgo to first cardshow the message boxput "Unprotecting Mac Games Cheats (please wait)..."set cursor to watchput n into protectreset menubarshow cd button "update"show cd button "lock"put " "hide the message boxset userlevel to 5end unloqon openstackglobal cardnum, protectset cursor to watchAddColor installmakemenuloqput the number of cards in this stack into cardnumselect line 1 of bkgnd field "Index"set the scroll of bkgnd field "Index" to 0put "y" into protectpass openStackend openstackon savetext -- Saves the cheats text to a text fileglobal datput bkgnd fld "txt" into datask file "Save as..." with bkgnd field "cn" & ".txt"if it = "cancel" or the result = "cancel" then exit savetextopen file itwrite dat to file itclose file itend savetexton colorMeAddColor colorCard,stamp,0end colorMeon closeStackAddColor removereset menubarlock screenloqpass closeStackend closeStackon suspendStackreset menubarpass suspendStackend suspendStackon resumeStackgo first cardmakemenuhide the message boxSend colorMe to this cardend resumeStackon makemenulock screenreset menubarput "Go,Tools,Objects,Font,Style" into delMenusrepeat with i = 1 to the number of items in delMenusput item i of delMenus into theMenuif there is a menu theMenu thendelete menu theMenuend ifend repeatput "Save Text..." into menu "File"put "Print Text" after menu "File"put "-----" after menu "File"put "Quit" after menu "File"set the commandChar of menuitem "Quit" of menu "File" to "Q"set the commandChar of menuitem "Save Text..." of menu "File" to "S"set the commandChar of menuitem "Print Text" of menu "File" to "P"repeat with i = the number of menuitems in menu "Edit" down to 7delete menuitem i of menu "Edit"end repeatrepeat with i = 1 to the number of menuitems in menu "Edit"set the enabled of menuitem i of menu "Edit" to falseend repeatset the enabled of menuitem 2 of menu "Edit" to trueput "About Mac Games Cheats..." into menuitem 1 of menu 1create menu "Mac Games"put "Find ..." into menu "Mac Games"set the commandChar of menuitem "Find ..." of menu "Mac Games" to "F"unlock screenend makemenuon doMenu theItem, theMenuif word 1 of theItem = "About" thenaboutelse if word 2 of theItem = "Text..." thensavetextelse if theItem = "Quit" thendomenu "Quit HyperCard"else if word 1 of theItem = "Find" thenfindieelse if word 1 of theItem = "Print" thenprintieelsepass doMenuend ifend doMenuon commandKeyDown theKeyglobal protectif theKey = "D" and the shiftKey is down thenif protect = "y" thenunloqexit commandKeyDownend ifif protect = "n" thenloqexit commandKeyDownend ifelse if theKey = "Q" thendomenu "Quit HyperCard"else if theKey = "R" thenflash 1else if theKey = "E" thensortieelse if theKey = "P" thenprintieelse if theKey = "X" thenelse if theKey = "V" thenset cursor to watchelsepass commandKeyDownend ifend commandKeyDownon aboutput "Mac Games Cheats May '96" & return & return into theMsgput "email : mgc@intouch.mpx.com.au" & return & return after theMsgput "HyperCard Claris Corporation" & return & return after theMsganswer theMsg with "OK"end abouton keydown whichkeyglobal protect, numif protect = n then pass keydownend keydownon sortieglobal cardnum, textgo first cardput the number of cards in this stack into cardnumgo to first cdanswer "Re-update Index ? (This orgranises the Index field according to the first card listing)." with "OK" or "Cancel"if it is "Cancel" then exit sortieput bkgnd field "Index" into textsubtract 1 from cardnumset cursor to busyrepeat cardnumgo to next cdput text into bkgnd field "Index"end repeatend sortieon arrowkey whichkeyif whichkey = right thengonextend ifif whichkey = down thengonextend ifif whichkey = left thengoprevend ifif whichkey = up thengoprevend ifend arrowkeyon gothereglobal scrollnum, dest, sline, ntput the selectedline of bkgnd field "Index" into slineput word 2 of sline into slineif nt = r then add 1 to slineif nt = l then subtract 1 from slineput " " into ntput the scroll of bkgnd field "Index" into scrollnumlock screengo card destselect line sline of bkgnd field "Index"set the scroll of bkgnd field "Index" to scrollnumput " " into destunlock screenend gothereon gonextglobal dest, nt, cardnumget the number of this cardif it = cardnum then exit gonextput r into ntput the short name of the next card into destgothereend gonexton goprevglobal dest, nt, cardnumif the number of this card = 1 then exit goprevput l into ntput the short name of the previous card into destgothereend goprevon findieask " Find Text ..."find itend findieon printieprint bkgnd field 1end printieon unlockieglobal protectgo to first cardput n into protectreset menubarset userlevel to 5show cd button "update"show cd button "lock"set hilite of me to falseset hilite of cd btn "l" to falseend unlockie</script>
